<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<% Response.Expires=0 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
dim Node
Node=request("Node")
if isEmpty(Node) then Node="_P"


%>
<html>
<head>
		<title>Current activity</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
</head>

<body bgcolor="#FBF3BB" >
<h1 align=center>SMS server</h1>
<!-- #INCLUDE FILE="Connection.inc" -->

<%
	Dim cnn
	Dim ManColor,DColor,id0,id, MS, MS1, DS, DS1, SS, hr, NE, Color
	Dim connStr
	Dim R, cmdM, cmdQ
	Set cnn=Server.CreateObject("ADODB.Connection")
	Set R=Server.CreateObject("ADODB.Recordset")
	Set cmdM=Server.CreateObject("ADODB.Command")
	Set cmdQ=Server.CreateObject("ADODB.Command")
	'connStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=Test;Password=Test;Initial Catalog=SMS"&Node&";Data Source=(local)"
	cnn.open connStr
	Set cmdM.ActiveConnection = cnn
	cmdM.CommandType=adCmdStoredProc
	cmdM.CommandText = "ind_LastOperations"

''	CmdM.Parameters.Append CmdM.CreateParameter("@Manager_id", adBigInt, adParamInput)
''	CmdM.Parameters.Append CmdM.CreateParameter("@Period", adVarChar, adParamInput,10)
''	CmdM.Parameters.Append CmdM.CreateParameter("@NumberOK", adInteger, adParamOutput)
''	CmdM.Parameters.Append CmdM.CreateParameter("@SummaOK", adBigInt, adParamOutput)

	CmdM.Parameters.Append CmdM.CreateParameter("@LastDT", adVarChar, adParamOutput,128)

''	Set cmdD.ActiveConnection = cnn
''	cmdD.CommandType=adCmdStoredProc
''	cmdD.CommandText = "sp_id_DealerResult"
''	CmdD.Parameters.Append CmdD.CreateParameter("@Dealer_id", adBigInt, adParamInput)
''	CmdD.Parameters.Append CmdD.CreateParameter("@Period", adVarChar, adParamInput,10)
''	CmdD.Parameters.Append CmdD.CreateParameter("@NumberOK", adInteger, adParamOutput)
''	CmdD.Parameters.Append CmdD.CreateParameter("@SummaOK", adBigInt, adParamOutput)

	id0=" "
''	R.open "select * from meps.dbo.[View_Managers] ", cnn,1,3,1
	
	cmdM.execute

	Set cmdQ.ActiveConnection = cnn
	cmdQ.CommandType=adCmdStoredProc
	cmdQ.CommandText = "ind_QuizStatus"


	CmdQ.Parameters.Append CmdM.CreateParameter("@Result", adVarChar, adParamOutput,128)
	cmdQ.execute


%>
Ready: <%=CmdM("@LastDT")%>
<P>
Quizes: <%=CmdQ("@Result")%>
<%
response.end
%>
		<%
	cnn.Close
	set R=nothing
	set cnn=nothing
	set cmdM=nothing
	set cmdQ=nothing
%>
</font>
<hr width=80%>
<P>Form:
<%=request.form%>
<P>
Query:
<%=request.querystring%>
</P>
</body>
</html>
